home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / COMMADIO / EASUPGEN.LZH / XTEUPG2.XTS < prev   
Text File  |  1989-09-17  |  5KB  |  156 lines
  1. /*
  2.         Ease-Up V1.7 (GEnie Version) INCLUDE file #2 for CROSSTALK Mk.4 v1.1
  3.  
  4.         This file, XTEUPC2.XTS, and its companion file XTEUPC1.XTS are used
  5.         by the scripts generated by Ease-Up V1.7 and are required for the
  6.         proper operation of those scripts.
  7.  
  8.         The files are 'include' files and are included into and compiled with
  9.         the Ease-Up generated scripts. Their location in the generated script
  10.         file is important, so if for some reason you decide to make any changes
  11.         to the generated code keep this in mind.
  12.  
  13.         The XTALK4 Reference Manual states in its notes on the INCLUDE statement
  14.         that the XTPATH path is not searched for include files. I've found that
  15.         this is not the case, and source files on the XTPATH are included. In
  16.         any case, these files must be available to XTALK4 in order for the
  17.         generated scripts to compile. Keeping the generated scripts and the
  18.         include files together in the same subdirectory will take care of it.
  19.         You should refer to your XTALKK4 manuals for the details of how include
  20.         files are handled.
  21. */
  22.  
  23.     label DONE
  24.         if auto_confirm = YES then {
  25.             if stat_wn > 0 then {
  26.                 stat_wn = 20
  27.                 gosub SHOW_STATUS
  28.             }
  29.             gosub CONFIRM
  30.         }
  31.         if stat_wn > 0 then {
  32.             stat_wn = 25
  33.             gosub SHOW_STATUS
  34.         }
  35.         alarm 4 : alarm 4        : ; wake up, we're done
  36.         shut #wn                 : ; free the message window
  37.         shut #errwn              : ; free the error window
  38.         END
  39.  
  40.     label CONFIRM
  41.  
  42.         wait 30 seconds for 'put the file in the Library (Y/N)?'
  43.         W5R '5'
  44.  
  45.     return
  46.  
  47.     label C_MODE
  48.  
  49.     ; goto the forum
  50.         gosub SHOW_STATUS
  51.         W5R  'M ' + forum_page + ';8' : ; forum_page initialized by
  52.                                         ; generated code
  53.     ; set library
  54.         
  55.         gosub SHOW_STATUS
  56.         watch for
  57.             case 'Item #, or <RETURN> for more?'    : W5R ' '
  58.             case space '?' : W5R libnum : ...
  59.                              goto CMODE_UPLOAD
  60.         endwatch
  61.  
  62.         ; choose upload
  63.  
  64.         label CMODE_UPLOAD
  65.  
  66.             gosub SHOW_STATUS
  67.             wait 30 seconds for '?'
  68.             W5R '5'
  69.             clear #wn,line
  70.             print #wn,at 2,0,'Sending description & file...';
  71.  
  72.     return
  73.         
  74.     label M_MODE
  75.  
  76.     ; goto the forum
  77.         gosub SHOW_STATUS
  78.         W5R  'M ' + forum_page + ';8' : ; forum_page initialized by
  79.                                         ; generated code
  80.     ; set library
  81.  
  82.         gosub SHOW_STATUS
  83.         watch for
  84.             case 'Item #, or <RETURN> for more?'    : W5R ' '
  85.             case '<H>elp?' : W5R libnum :...
  86.                              goto MNU_UPLOAD
  87.         endwatch
  88.  
  89.     ; choose upload
  90.     
  91.     label MNU_UPLOAD
  92.  
  93.         gosub SHOW_STATUS
  94.         wait 30 seconds for '<H>elp?'
  95.         W5R '5'
  96.         clear #wn,line
  97.         print #wn,at 2,0,'Sending description & file...';
  98.  
  99.     return
  100.  
  101.     label ERROR_HDLR
  102.  
  103.         if track(1) then {
  104.             alarm 7
  105.             print #errwn,' Invalid Response...'
  106.             print #errwn,' Check your data entry offline.'
  107.             show #errwn
  108.             wait 4 seconds for key 27
  109.             hide #errwn
  110.             jump DONE
  111.         }
  112.  
  113.     label SHOW_STATUS
  114.  
  115.         case stat_wn of
  116.  
  117.             0 : return
  118.  
  119.             1 : print #wn,at 2,0,'Moving to forum...';
  120.  
  121.             2 : clear #wn,line : ...
  122.                 print #wn,at 2,0,'Setting LIB number...';
  123.  
  124.             3 : clear #wn,line : ...
  125.                 print #wn,at 2,0,'Choose Upload...';
  126.  
  127.             4 : clear #wn,line : ...
  128.                 print #wn,at 2,0,'Send Upload File Name...';
  129.  
  130.             5 : clear #wn,line : ...
  131.                 print #wn,at 2,0,'Send Short Description...';
  132.  
  133.             6 : clear #wn,line : ...
  134.                 print #wn,at 2,0,'Send Long Description...';
  135.  
  136.             7 : clear #wn,line : ...
  137.                 print #wn,at 2,0,'Send Keywords...';
  138.  
  139.             8 : clear #wn,line : ...
  140.                 print #wn,at 2,0,'Choose Protocol...';
  141.  
  142.             9 : clear #wn,line : ...
  143.                 print #wn,at 2,0,'Upload Local File...';
  144.  
  145.            20 : clear #wn,line : ...
  146.                 print #wn,at 2,0,'Confirmation with host...';
  147.  
  148.            25 : clear #wn,line : ...
  149.                 print #wn,at 2,0,'End of script...';
  150.  
  151.         endcase
  152.  
  153.         stat_wn = stat_wn + 1
  154.  
  155.     return
  156.